From 7512ff79b930666c4e70edcab765ba653f67e980 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Aug 2002 22:53:39 +0000 Subject: [PATCH] (comment-region): Force `lines' when `block' is set. --- lisp/newcomment.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/newcomment.el b/lisp/newcomment.el index b161b0c7779..8f7333a3e31 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -865,8 +865,8 @@ The strings used as comment starts are built from (>= (point) beg)) (progn (goto-char end) (end-of-line) (skip-syntax-backward " ") (<= (point) end)) - (or (not (string= "" comment-end)) block) - (progn (goto-char beg) (search-forward "\n" end t))))) + (or block (not (string= "" comment-end))) + (or block (progn (goto-char beg) (search-forward "\n" end t)))))) ;; don't add end-markers just because the user asked for `block' (unless (or lines (string= "" comment-end)) (setq block nil)) -- 2.30.2